﻿Imports System

Namespace System.Workflow.Runtime
    Friend NotInheritable Class KeyedPriorityQueueHeadChangedEventArgs([Of] T As Class)
        Inherits EventArgs
        ' Methods
        Public Sub New(ByVal oldFirstElement As T, ByVal newFirstElement As T)
            Me.oldFirstElement = oldFirstElement
            Me.newFirstElement = newFirstElement
        End Sub


        ' Properties
        Public ReadOnly Property NewFirstElement As T
            Get
                Return Me.newFirstElement
            End Get
        End Property

        Public ReadOnly Property OldFirstElement As T
            Get
                Return Me.oldFirstElement
            End Get
        End Property


        ' Fields
        Private newFirstElement As T
        Private oldFirstElement As T
    End Class
End Namespace

